::[Bat To Exe Converter]
::
::YAwzoRdxOk+EWAjk
::fBw5plQjdCyDJGyX8VAjFBhcTQ+BJVeeA6YX/Ofr09C3kEgNQOszfc+WmjFn72bvJgWsJ98R1XBR1sIPA3s=
::YAwzuBVtJxjWCl3EqQJgSA==
::ZR4luwNxJguZRRnk
::Yhs/ulQjdF+5
::cxAkpRVqdFKZSDk=
::cBs/ulQjdF+5
::ZR41oxFsdFKZSDk=
::eBoioBt6dFKZSDk=
::cRo6pxp7LAbNWATEpCI=
::egkzugNsPRvcWATEpCI=
::dAsiuh18IRvcCxnZtBJQ
::cRYluBh/LU+EWAnk
::YxY4rhs+aU+JeA==
::cxY6rQJ7JhzQF1fEqQJQ
::ZQ05rAF9IBncCkqN+0xwdVs0
::ZQ05rAF9IAHYFVzEqQJQ
::eg0/rx1wNQPfEVWB+kM9LVsJDGQ=
::fBEirQZwNQPfEVWB+kM9LVsJDGQ=
::cRolqwZ3JBvQF1fEqQJQ
::dhA7uBVwLU+EWDk=
::YQ03rBFzNR3SWATElA==
::dhAmsQZ3MwfNWATElA==
::ZQ0/vhVqMQ3MEVWAtB9wSA==
::Zg8zqx1/OA3MEVWAtB9wSA==
::dhA7pRFwIByZRRnk
::Zh4grVQjdCyDJGyX8VAjFBhcTQ+BJVeeA6YX/Ofr09C3kEgNQOszfc+WmjFn72bvJgWsJ98RxX9OjdtCCQNdHg==
::YB416Ek+ZG8=
::
::
::978f952a14a936cc963da21a135fa983
arrange.exe
echo 正在创建环境...
compile.exe
echo 正在编译...

@echo off  
setlocal enabledelayedexpansion  
  
:: 假设批处理文件和目标程序在同一目录，或您已正确设置了相对路径  
set "RELATIVE_PATH=.\run.exe"  
set "SHORTCUT_NAME=激情小肖在线爬虫"  
:: 获取当前批处理文件所在的目录作为起始位置  
set "START_IN=%~dp0"  
:: 去除尾部的反斜杠，因为WorkingDirectory属性不需要它  
set "START_IN=%START_IN:~0,-1%"    

:: 检查目标程序是否存在  
if not exist "!RELATIVE_PATH!" (  
    echo Error: The target program at "!RELATIVE_PATH!" does not exist.  
    goto :EOF  
)  
  
:: 转换相对路径为绝对路径  
for %%i in ("!RELATIVE_PATH!") do set "TARGET_PATH=%%~fi"  
  
:: 创建临时VBScript文件  
(  
    echo Set oWS = WScript.CreateObject^("WScript.Shell"^)  
    echo sLinkFile = oWS.SpecialFolders^("Desktop"^) ^& "\" ^& "%SHORTCUT_NAME%.lnk"  
    echo Set oLink = oWS.CreateShortcut^(sLinkFile^)  
    echo oLink.TargetPath = "%TARGET_PATH%"  
    echo oLink.WorkingDirectory = "%START_IN%"
    echo oLink.Save  
) > "%TEMP%\CreateShortcut.vbs"  
  
:: 使用cscript执行VBScript以创建快捷方式  
cscript /nologo "%TEMP%\CreateShortcut.vbs"  
  
:: 清理临时VBScript文件  
del "%TEMP%\CreateShortcut.vbs"  
  
echo Shortcut to "!TARGET_PATH!" created successfully on the desktop.  
  
endlocal